home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / pop.skeleton < prev    next >
Text File  |  2007-02-28  |  3KB  |  90 lines
  1. 0170 ╨╥╧├ POPOVER ├╠╧╙┼─
  2. 0180   //COPYRIGHT 1986 LEN LINDSAY
  3. 0190   // ORIGINAL BY LEN LINDSAY
  4. 0200   // REVISION BY
  5. 0210   ╔╬╘┼╥╥╒╨╘ //INTERRUPT OFF WHILE DOING INTERRUPT NOW
  6. 0220   ╒╙┼ GRAPHICS
  7. 0230   TEXTMODE:=INQ(13)
  8. 0240   GRAPHMODE:=INQ(7) //2=MULTI
  9. 0250   ╔╞ GRAPHMODE<2 ╘╚┼╬ GRAPHMODE:=1-INQ(14) //0=SPLIT//1=FULL HIRES
  10. 0260   ╘╥┴╨ ┼╙├-
  11. 0270   SETUP
  12. 0280   ╒╙┼ SYSTEM
  13. 0290   ─╔═ START'SCREEN$ ╧╞ 1505
  14. 0300   GETSCREEN(START'SCREEN$)
  15. 0310   ╔╞ ╬╧╘ TEXTMODE ╘╚┼╬ TEXTSCREEN
  16. 0320   CLEAR'KEYS
  17. 0330   POPUP
  18. 0340   SETSCREEN(START'SCREEN$)
  19. 0350   ╔╞ TEXTMODE ╘╚┼╬
  20. 0360     TEXTSCREEN
  21. 0370   ┼╠╙┼ 
  22. 0380     ╔╞ GRAPHMODE ╘╚┼╬
  23. 0390       FULLSCREEN
  24. 0400     ┼╠╙┼ 
  25. 0410       SPLITSCREEN
  26. 0420     ┼╬─╔╞ 
  27. 0430   ┼╬─╔╞ 
  28. 0440   CLEAR'KEYS // OPTIONAL LINE
  29. 0450   ╔╬╘┼╥╥╒╨╘ POPOVER
  30. 0460   //
  31. 0470   ╨╥╧├ POPUP 
  32. 0480     COL:=╥╬─(3,15) // <<<===START COL
  33. 0490     CURRENT'ROW:=╥╬─(2,12) // <<<=== START ROW
  34. 0500     // ROW IS A FUNCTION THAT STARTS AT CURRENT'ROW
  35. 0510     // USE SHIFT * TO DRAW MENU LINE
  36. 0520     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"░└└└└└└└└└└└└└└└«"
  37. 0530     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"  POPOVER MENU   "
  38. 0540     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  39. 0550     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"   =             "
  40. 0560     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"   =             "
  41. 0570     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  42. 0580     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" Q = QUIT        "
  43. 0590     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  44. 0600     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" OR <RETURN> KEY "
  45. 0610     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"¡└└└└└└└└└└└└└└└╜"
  46. 0620     ╥┼╨┼┴╘ 
  47. 0630       DONE'POPPING:=╘╥╒┼
  48. 0640       ├┴╙┼ ╦┼┘$ ╧╞
  49. 0650       ╫╚┼╬ "Q","╤"
  50. 0660         ╘╥┴╨ ┼╙├+
  51. 0670         ┼╬─ ""147"╘HANK ┘OU."
  52. 0680       ╫╚┼╬ ""13"" //CARRIAGE RETURN
  53. 0690         ╥┼╘╒╥╬
  54. 0700       ╧╘╚┼╥╫╔╙┼ 
  55. 0710         DONE'POPPING:=╞┴╠╙┼
  56. 0720       ┼╬─├┴╙┼ 
  57. 0730     ╒╬╘╔╠ DONE'POPPING
  58. 0740   ┼╬─╨╥╧├ POPUP
  59. 0750   //
  60. 0760   ╨╥╧├ READY 
  61. 0770     ╔╬╨╒╘ ┴╘ 25,1,0: ""18"╨RESS ╥┼╘╒╥╬ WHEN READY": POPREADY$
  62. 0780     ╨┴╟┼
  63. 0790   ┼╬─╨╥╧├ READY
  64. 0800   //
  65. 0810   ╞╒╬├ ROW 
  66. 0820     CURRENT'ROW:+1
  67. 0830     ╥┼╘╒╥╬ CURRENT'ROW
  68. 0840   ┼╬─╞╒╬├ ROW
  69. 0850   //
  70. 0860   ╨╥╧├ CLEAR'KEYS 
  71. 0870     ╫╚╔╠┼ ╦┼┘$>"" ─╧ ╬╒╠╠
  72. 0880     DUMMYESC:=┼╙├ //CLEAR STOP KEY
  73. 0890   ┼╬─╨╥╧├ CLEAR'KEYS
  74. 0900   //
  75. 0910   ╨╥╧├ SETUP ├╠╧╙┼─
  76. 0920     // SETUP BY JESSE KNIGHT
  77. 0930     ╘╥┴╨ ┼╙├-
  78. 0940     ╞╧╥ X#:=0 ╘╧ 12 ─╧
  79. 0950       ╥┼┴─ BYTE#
  80. 0960       ╨╧╦┼ $C86A+X#,BYTE#
  81. 0970     ┼╬─╞╧╥ X#
  82. 0980     ╨╧╦┼ $C7E2,$6A
  83. 0990     ╨╧╦┼ $C7E3,$C8
  84. 1000     ╨╧╦┼ $4D,╨┼┼╦($4D) ┬╔╘╧╥ $20
  85. 1010     ─┴╘┴ $A5,$4D,$29,$08,$F0,$06,$A9
  86. 1020     ─┴╘┴ $04,$05,$4D,$85,$4D,$60
  87. 1030   ┼╬─╨╥╧├ SETUP
  88. 1040   //
  89. 1050 ┼╬─╨╥╧├ POPOVER
  90.